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module \ink_objfil 

(ident = ‘v04-000' 

addressing _mode 

(external = general) 
= 


begin 
VRE RAAAAAAAARARAAAEAAEEAEAEE EEE ERE REE AETHER RERES 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ately ‘oe WITH a Mi 3 


COCSOoCoOOCoOoCoOO 


BRR E REE FE FWWAAWAAAAANIPONINIMONIMUNININD 2 SSS IOOOOOOOOD 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepPokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
® 
® 
® 
* 
i 
® 
: ® 
ie TRANSFERRED. . 
® 
® 
® 
® 
* 
® 
® 
*® 
® 
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i MODULE: LNK_OBJF IL 

i FACILITY: LINKER 

i ABSTRACT: ROUTINES TO OPEN AND READ ALL RECORDS OF OBJECT FILES 
i HISTORY: 

VERSION: x01.00 
5 

4 
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AUTHOR: T.J. PORTER O3-MAY-77 
i MODIFIED BY: 
v03-022 ADE0004 Alan D. Eldridge 17-Jul-1984 
Search default cluster when looking for a library to 
close as well as the cluster List. | 


v03-021 ADE0003 Alan D. Eldridge 11-Jul-1984 
Fix infinite loop which occurred in selected cases when 
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; 28 i } the Librarian had too many files open. 

; i ~ 

| 4 | 3 _— Signal proper yk both ao Saliate ta deena 

: i 355 | 3 = Close a file and poy one tons. TOOMNYLIB pony 
; e9 : 7 ~— atte deetipi to fier of open Knot 

; r Ore 7 yee ONT ened bug in LNKBCLOSEFILE Logic. et 

; 73 Ors seth Px another bug in LMKSELOSEF ILE Logic. 1 The intetal 
as 3 ! a file to close tan ekeneairee han adnan tal opeSaste it. 
&0 0080 7 Hone ey bug in LNKSCLOSEF ef togic. ee 

; 88 os 7 _— Open file portarnanen blest, sane epee 

; 3 0086 7 srestiet ee oe bit it toe. het 6 any non-TIR obkace keuen 

; 0088 1 !-- 
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i FUNCTIONAL DESCRIPTION: 


THIS aes CONTAINS A ROUTINE TO OPEN THE NEXT 
OBJECT ULE FILE AND ANOTHER TO READ THE NEXT 
RECORD FROM THE CURRENTLY OPEN FILE. IT ALSO CONTAINS THE 
ROUTINE TO CLOSE THE CURRENTLY OPEN FILE. 
LNKSNXTFIL 
LNKSNXTREC(RECADRS ,RECLNG) 
LNKSCLOSCURF IL() 
IF THERE ARE NO MORE FILES OR wi mitt ROUTINES HAVE THE VALUE FALSE. 
IF FILE IS SUCCESSFULLY OPENED (BY FILE ID USING LINKED LIST OF FDB'S) 
LNKSNXTFIL HAS THE VALUE TRUE AND THE ADDRESS OF THE 
FILE DESCRIPTOR BLOCK IS PLACED IN LNKSGL_CURFIL. 
THERE IS _N 


0 gitar ON THE FOLLOWING ERROR CONDITIONS: 
OPEN FAILUR 
CONNECT FAILURE 


CALLING ee 


external routine 


10 
0142 
6118 TFIL() 
114 LNKSNXTREC (RECADRS,RECLNG) 
BF une ENKSCLOSEURF ILC) 
O19 RECADRS = ty te | OF 7 ps eg TO RECEIVE THE 
gis DRESS OF NEXT ORD. 
011 RECLNG = ADDRESS OF A WORD TO RECEIVE LENGTH 
0120 OF THE RECORD (IN BYTES). 
4 1 THE ROUTINE RETURNS THE VALUE TRUE, UNLESS END OF FILE 
5 IS DETECTED, WHEN IT RETURNS THE VALUE FALSE. 
124 § 
125 library 
1 § *SYSSLIBRARY:STARLET.L32'; ! SYSTEM STRUCTURE DEFINITIONS 
\§ require 
1 : *PREFIX'; 
4 Library 
0 rt} : *DATBAS'; ! INTERNAL DATA BASE DEFINITIONS 
o 48 forward routine 
4 tran_next fib, ' RETURN NEXT ante AULT LIBRARY NAME 
$8 ink$closeTile. : novalue, ' SEARCH FOR A FILE TO CLOSE 
r4 ink$openlib; ! OPEN LIBRARY 
1 
5 ink$alloblk : novalue, ' DYNAMIC MEMORY ALLOCATOR 
2 Lnk$dealblk : novalue, ' AND DEALLOCATOR 
4 ink$allocluster : novalue, ' ALLOCATE CLUSTER DESCRIPTORS 
5 ink$allofdb : novalue, ' ALLOCATE FILE DESCRIPTOR BLOCK 
§ ink EHinandsc. ' RETURN STRING DESCRIPTOR FOR FILENAME 
ty33 fao ' FORMATTED ASCII OUTPU 
3 r$lookup_key, i LOOKUP KEY IN MODULE 
5 tpresce module, ' READ MODULE HEADER 
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onterpe) Literal 


pat + ae ha a 


global Literal 
Lnk$c_objmbc = 5; 


SSSRNOU PUI O Doo Wan POM oS Oe A ane 


CoCo OO NIN 


WwnMm 


: $rab (rac 


vuvuvD 


SOOOOOOCOOCOOCOCOOOSOOOSOSOCSOSOOSOSSOOSSOSOOOCSOOOCOOOO OOO OOOO OO OOOOOOOO 


HAWAII AAAI AAI AAI AAAI AI POPPI POPUP POPE PoNonononeny 


ink$gl_curfil : 


SeSescs WOOO OO0OOCOBWBOMOMWwc SANS NO 
w BR OS AFAR PO Doe I AMO OOO OU oe ee 
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: descriptor ( 
: descriptor (*SYSSLIBRARY: EXE"), 
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: ref block C,bytel), 


: bitvector C] 
: block b tel, 


: vector 


: ref block [,bytel, 
: ref block C,bytel, 
: block C,bytel, 

: word, 

: byte; 


: initial (0), 


= seq 
-rop = loc 
mbc = Lnk$c_objmbc 


Lnk$gl_curomd : ref block [,byte], 
ref block (,byteJ; 


: ref block (,byte], 
: ref block C,bytel, 


: block cfabds pis. byte], 
: Quadvector 
nitial (stringdesc (*STARLET') 


stringdesc (*IMAGELIB’) 


: descriptor ('SYSSLIBRARY:.OLB"), 


dsc$c_s_bin,byte], 
reysspisk:.0LB") 


couvo Fru "ovv 
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LINKER. SRCJLNKOBJFIL.852;1 


TO READ LIBRARY 
“_e LIBRARY 


ARY CONTROL ADDRESS 
IBRARY OPERATIONS 


R USER LIBRARIES 


TOR LISTHEAD 
LIST DESCR. 
POINTER 


mm Or z@ 


Pp 
N 
R 
NUMBER OF UN MBOLS 

THE PASS CURRENTLY EXECUTING 
MULTI BLOCK COUNT FOR OBJ FILES 


NUMBER OF CURRENTLY 
ACCUMULATED OBJECT R 
ORD NUMBER THIS F 

RD ACCESS BLOCK 
SEQUENTIAL, LOCATE MO 
WITH MULTIPLE BLOCKS 
T 
T 


EN LIBRARIES 
RDS READ 
ECIFYING 


POINTER 


0 
POINTER TO CURRENT FDB 


OR O 
DB F 
RCH 
) 


PE 
OR 


A 
BRARY 
GE 


zwo- 


Dei LIBR RECORD 
GE STB LIBRARY 
ILE 


CURRENT OBJ MOD. DESCRIPTOR 


N FILE SEARCHES 
OPEN FILE SEARCHES 


SYMBOL TABLES 


RLET AND IMAGELIB 
URRENT DEFAULT STRING 
ER LIBRARY 

AREABLE IMAGES 


£01984 99:18:33 
LIBRARY_!UW"), CREATE USER LIBRARY NAMES 


8. 
LUSTER (OR DEFAULT) 


zn 
#2555 


{Initial (%x'060503"),/ 
: waexres.bytel, 


Cee et et ee 
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Lobal routine Lnk$nxtfil = 


egin 
FLO et THE PREVIOUSLY ore FILE AND THEN 
ARE ANY MORE FILES IN THE TABLE GO OPEN THE 
NEXT AND PUT ADDRESS OF ITS DESCRIPTOR IN CURRENT SLOT. IF 


NONE. RETURN FALSE. 
routine openit = 
begin 


i THIS ROUTINE ATTEMPTS TO OPEN FILES AND RETURNS THE 
STATUS OF THE OPEN 


local 
if .lnk$gl_ cureit Cfdb$w_ifi] neq 0 ' IF IF] IS INITIALIZED, THEN 
then return t i “THE FILE IS ALREADY OPEN 
else begin ' FILE IS NOT OPEN, SO 
openok = —— (fab=input_ fab); ' TRY OPENING THE FILE 
if not “opene ! IF OPEN FAILED AND THIS IS AND 
then if nk$gl_ curclu Cclu$v_intclu] ! THIS IS INTERNALLY MATERIALIZED 
then begin ! CLUSTER, THEN TRY SYSSLIBRARY: 
input_ fab ffabsb. dns -shrdefext £03: 
input_fab Cfab$l“dna -shrdefext 
openok = S$open tana) = 8 fab); ! TRY AGAIN 


return (, epensk)s 


end; ! RETURN OPEN STATUS 
end; ! OF OPENIT 
.TITLE LNK_OBJFIL 
IDENT \v0%-000\ 
-PSECT $PLITS,NOWRT,NOEXE ,2 
00 54 45 46 52 41 54 53 00000 P.AAA: .ASCII \STARLET\<0> : 
42 469 4C 45 47 41 4d 49 9008 P.AAB: .ASCII \IMAGELIB\ F 
41 52 462 469 4C 24 53 59 33 9910 P.AAC: .ASCII \SYS$LIBRARY:.OLB\ ; 
3A 4B 53 49 446 26 53 59 S 09 9 P.AAD: .ASCII \SYS$DISK:.0LB\<0><0><0> 
41 52 42 49 4C 246 53 59 33 09 : P.AAE: .ASCII \SYSSLIBRARY:.EXE\ ; 
41 52 42 469 4C 26 4B 4E 4c 0040 P.AAF: ASCII \LNKSLIBRARY_!UW\<0> : 
0 004F 3 
.PSECT SOWNS,NOEXE,2 
00000 OPENCLUS: 
.BLKB 4 
990 OPENE DB: gotks 4 
START_F : 


PaLK 
0000 INPUT_FAB: 
-BLKB 


| 
| 
openok; 


LNK 
vo4 
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00000007 0005¢ INTFILTBL: , 
999 y 960 “ADDRESS P.AAA : 
. 64 -LONG 8 g 
990 0068 “ADDRESS P.AAB ; 

1 6C SYSLIBDEF EXT: 
00000000' 90070 sADDRESS P.AAC : 
74 CURDEFEXT 

‘BLKB 8 

00000000 0007¢ LIBDEFEXT: | * 
90000000" 0080 “ADDRESS P.AAD : 

0084 SHRDEFEXT: 
«LONG 16 é 
9000000 900° 00088 -ADDRESS P.AAE F 
0000F 000 


00094 PREVIOUS. FB: 
00098 LASTUSERCLU: 

03 0009C NEXTINTFIL: 
BYTE 


00090 -BLK 
QOOAO USERLIBNO: 


LK 
01 OO0A4 FIRST -TIME: 
00 OO0AS DEFAULT ile: 
00 Q00A6 DEFLIBACMODE: 
-BYTE 


-o oO -—- F| WW SF S&S 


QOA7 -BLKB 
00060503 O00A8 DEFLIBDSBMSK: 


LONG 394499 : 
QOOAC RESULTSTRING: 
-BLKB es 


0018 “BLKB 
QOO000FF OO1AC LIBNAMDESCR: 
LONG 255 
00000000" 00180 “ADDRESS RESULTSTRING : 
.PSECT $GLOBAL$,NOEXE,2 
00000000 00000 LWKSGL_OPEN, LBR: 
00004 LWKSGL_OBJRECS 
00008 LNKSGL_RECORD: : 


0 

4 

-BLKB. 4 

01 O000C LNKSAL_RAB: : 

.BYTE 1 

sa CE 
00019009 1 “LONG 


8 
5536 


C LIBNAMEFAO: 
“LONG 15 ' 
00000000" 00090 “ADDRESS P.AAF 
| 


a 
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«WORD (3) 


vi 


48 - LONG 
004¢ “LONG 
005 LNKSGL_CUROMD 

00054 LNKSGL_CURFIL:: 

-BLKB 


- S| ooo 


LNK$C_OBJMBC== 5 
~EXTRN cinecun Mate 


EX 
“EXTRN LBRSCL OOMNY 
-EXTRN LIN$_CLOSEIN, LINS FORMAT 


-PSECT S$CODES,NOWRT,2 


000 OPENIT: .WORD Save R2,R3 
MOVAB ar ta R3 


FAB, R 
MOVL NK GC _CURFIL, RO 
6(RO) 


SEs 78 
-—Lonn 


$ 
#1, RO 


—— 

wo 

z 

mo 

-—< 
av 


; Routine Size: 64 bytes, Routine Base: S$CODE$ + 0000 


current_ifi 
turn_sqo_off : byte 

aux fab : ref block C,bytel, 
rms_stv, 

errorcode : block (4,bytel, 
open_sts; 


OWONAULSWN—OVOOn 


if slnkSol cur ttt eql 0 
then begin 

ink$gl_curclu = .lnk$gl_clulst £03; 
orev ous_fdb = Ink$gl_icurclu CcluSl_fstfdbI; 


e 
else begin 
if .lnk$gl_curfil Cfdb$v_imglib) 


or .l\nk$gb_pass egl 
then Lnk$closefile (.lnk$gl_curfil); 


WnN— 


rroror 


PN PS RS Se ey th ty Sate a a 


if .lnk$gb_pass eat 1 
then Lnk$gl_curfil Cfdb$v_p1) = true; 


if .tnk$gl_curfil Cfdb$v_libr] 
and .ink$gl_curfil Cfdb$l_omdist] eql 0 
then pesie ; 
in Selosefile (. ink$gl sur ttl: 
previous_fdb Cfdb$l_nxffdb) = .lnk$gl_curfil Cfdb$Sl_nxtf 


if .previous_fdb Cfdb$l_nxtfdb) gal 0 : 
then (ink$gl_turclu CcluSl_lstfdbJ = .previous_fdb; : 


!**THIS IS A PROBLEM...THE BLOCK CAN'T BE DEALLOCATED!!! 
tee LNKSDEALBLK (FDBSC_SIZE+NAMSC_BLN, .LNKSGL_CURFIL); 


CoO OOO NN NN NNN NO 


EWN 
WWE RRR RRR REESE 


mt NO Ae 


end 
else previous_fdb = .ink$gl_curfil; : 


if .ink$gl_curfil Cfdb$Sw_ifi] neq 0 : 
then $disconnect (rab=|nk$al_rab); : 


SLO kunw ooo 
S3e 


Sooo oe es essesssssssssssssssscscse 
W.A.AN AAAI. A AIAN AN AN AAAI AAAI 


@ 
o 
o 
—_ 


9 
LNK_OBJFIL 1b-se -1984 00:10: AX=11 Bliss-32 V4.0-74 P 
ya=000 ae tiae ts rik Le et hg Ne ath a Pe “asi 
DD O001C 1S: PUSHL R ; 
; Beh GME Besse ans 
- i 000000006 D 4 MOVL LNKs eEURCL R1 : 0350 
3 Ag 78 OA 6 p MOVB $$ SHRDEFEXT, INPUT FAB+53 : 35 
0 A 70 «Ae OD MOVL § SHROEFEXT#4, INPOT_FAB+48 : p 5 
DD 0 A PUSHL R : 0354 
63 FB C CALLS #1, SYSSOPEN : 
04 0003F 2$: RET + 0358 


SHOULD SQO BE SHUT OFF? 
POINTER TO AUXILIARY FILE NAME BLOCK 
STV RETURNED ON RMS OPERATION 


ERROR CODF ON OPEN 


IF NO CURRENT FILE 

START AT TOP OF LIST 

OF CLUSTERS 

SETTING PREVIOUS TO ITS LISTHEAD 


ALWAYS CLOSE SHR IMG LIBS IMMEDIATELY 
DONE WITH FILE IF THIS IS PASS 2 
SO CLOSE THIS FILE 
IF THIS IS PASS 1 
THEN FLAG FILE PROCESSED IN PASS 1 
IF THAT LAST FILE WAS A LIBRARY 
ES WERE LOADED 


AN DULES W 
WE DO NOT NEED IT ANYMORE 
; CLOSE IT AND 
db]; ! REMOVE IT FROM THE LIST 
AND IF LAST ON THIS 
CLUSTER LIST, FIX EOL POINTER 
! AND DISPOSE OF ITS DESCRIPTOR 


IF NOT EMPTY LIB, IT BECOMES THE PREVIOUS 


If FILE LEFT OPEN 
THEN DISCONNECT [TS RAB 
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5 end; $ 
; 1 : : 
3 § while (inks lcurfi = 7508 Ots- fdb Cfdb$l_nxtfdb]) egl ! GET NEXT FILE ON THIS CLUSTER LIST : 
3 fet 1 curfil C yrP and: - LnkS9b pass eql 5 
3 $ do it gl_curclu Cclu$ST_nxtclu eg ! BUT IF THE END AND LAST CLUSTER ; 
3 5 4 and ( tnkSgbo pass eal 1 1 and .nextintfil neq 0) ! OR THE DEFAULT CLUSTER ON : 
H 39 4 ! AND WE HAVE NOT PROCESSED DEFAULT LIBRARIE : 
; and .\lnk$gw_nudfsyms "y ° ! AND THERE ARE STILL UNDEFINED SYMBOLS : 
3 19 and at. nextintfil eql 3) and .lnk$gl_ctlmsk Cink$v_usrlibJ) : 
3 4 \§ 4 Ace enextintfil gtr 0) and .lnk$gl_ctlmsk Clnk$v_syslib]) . 
; 0 14 then begin : 
; 87 \ local fileflags; : 
; 305 i 1} tet togs = fdb$Sm_libr or fdb$m_Libsrch; ! SET DEFAULT FILE FLAGS 
; 5] \8 if .first_time ' IF THIS IS THE FIRST TIME 
3; 1 or Gefault., Lib ! OR IF PROCESSING USER LIBRARIES 
; 308 420 4 then begin — 
; 309 1 4 first_time = false !' NO LONGER FIRST TIME 
3 10 04 § & if no® .ink$gl_ ctl ash Clink$v_usrlibJ ' IF USER LIBRARIES ARE DISABLED 
; 311 & or not tran_next_lib () ! OR NO MORE DEFAULT LIBRARIES 
3 \¢ 4 then begin 
3 31 5 nextintfil = 2; ! JUST SKIP IT 
3 14 $ default_lib = false ! DISABLE USER LIBRARIES 
; 315 ink$gl. ttlmsk tnk$y usrlib] = se; 
3 1 : i not pe cnksol. ctlmsk Clnk$v_s 1b3 ! IF SYSLIB DISABLED 
3 en 
3 18 4 50 $ PePsol. curfil = 0; !' RETURN NO MORE FILES 
; 13 Be ; return “false; 
; ena; 
3 1 end 
3 § 04 4 else begin 
; 5 default_lib = true ' FLAG PROCESSING DEFAULT LIBRARIES 
; 4 04 6 userlibno = userlibne + 1; ' SET FOR NEXT LIBRARY 
; 325 4 nextintfil = 3; i ENSURE INDEX IS CORRECT 
: $ 3 4 4 end; 
; end; 
3 40 
F} 3 44) if smogt inate? 2 og! @ ' IF READY TO PROCESS IMAGELIB 
3 en not .in C . nk$v_sysshr ' 
4g th t .lnk 9 tlmsk Cink$ sshrJ] ' JF /NOSYSSHR WAS SPECIFIED 
: 1 3 vk. nextintfil = 1; ! THEN SKIP SEARCH OF IMAGELIB 
3 5 45 4 if (. sfotouit. Lib or .nextintfil eql 1) ' IF DOING A DEFAULT OBJECT LIBRARY 
3 rt 4 then pegan ' THEN WE NEED A DIFFERENT CLUSTER 
3 5 47 & in $gl_curclu = Lnk$gl_ st'§ ' SET SEARCH TO KNOWN USER CLUSTER 
3 448 & f .lik$gl_defclu (clos ‘stias eat 8 ' IF NO FILES IN THE CLUSTER 
$ 49 4 and .lnk$gl-defclu clusta _nxtclul eql ! AND IT HAS NO CLUSTER FOLLOWING IT 
; 50 4 and - Lnk$gt2 Lastclu neq Lik$gl_ dete tu ! AND IT ISN'T THE LAST CLUSTER 
; 39 51 then began ' THEN WE MUST LINK INTO CLUSTER LIST 
3 0 26 ink$gl_lastclu Cclu$l anxte lus = lnk$gl_defclu; 
: 1 5 ink$gl=Lastclu = Lnk$gl_defclu; 
3 ¢ 435 4 4 end; 
; end; 
3 4 
; 5 3§ previous fdb = .tnk$gl_curclu (Cclu$l | Hama ' PREVIOUS FILE IS LAST 
3 6 58 Ink$allotdb (previous_fdb dost’ nxtfd ' ALLOCATE A FILE DESCRIPTOR 


| 
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| 


exitloop; 


5 ink$gl_curfil = .previous_fdb Cfdb$l gitt fob); ! AND MAKE IT CURRENT 
: Fs Lnk$ Sol -curc\y Feiustets L tfabs) = = .ink$ 9} curf til; ! AND SET NEW LAST FDS 
; 6 ink$gl=cur fdb$b_ fi LflgsJ fite lags; ! SET APPROPRIATE FLAGS 
1 ¢ ae -Gofavit.. lib ! IF THIS IS THE DEFAULT USER LIBRARY 
g g8 chdmove (dsc$c_s_b 
: 68 cmneve (dsc$c_s_b bdefext, (nk$gl-curf $w_defnamlen i 
$ 08 else begin 
8 ve (dsc$c_s_bln,intfiltbl C.nextintfil-1) Lok sot. curfil Cfd iw. usrnamlen]); 
3 » cheaove (dsc$c_s “binisyslibdefext, Lnk$gl_curfil Cfdb$w_defnamlen]) 
1 if not .default_lib 
§ 474 then | janksal. ctlitsk Clnk$v_intfil] = true; !' RECORD WE ARE DOING THIS 
? nextintfi enextintfil = 1; !' REDUCE FILE NUMBER 
5 7 


else begin 


sono 


IF NOT LAST nueren 
MOVE TO NEXT 


l gurets = .lnk$gl_curclu Cclu$l_nxtclul; 
a L_curclu eqt 0” 


ine pegs 

$gl_ctlmsk Clnk$v_intfil] = false; 
inksgt curfil = 0; 
return false; 


end; 
previous_tdb = Ink$gl_curclu Cclu$t_fstfdbJ; 
nd; 


TURN OFF INTERNAL FLAG 
AND RETURN NO MORE FILES 
! RESET TO TOP OF FILE LIST 


FRLLRLRLERLS 


aux fnb = ink$gl_curfil Cfdb$t_auxfnb); ! POINT TO AUXILIARY FILENMAME BLOCK 
turn _sqo_off = .lnk$gb_pass eql 2 and . Lnk$gl_ curfil Cfdb$v _omdnobinj; 


$fab_init (fab = input_fab 
= get 


= $qo 
= obj$c_maxrecsiz 
cnen = .auxfnb 


if .turn_sqo_off 

then begin 
ink$closefile (.lnk$gl_curfil); 
input. fab Cfab$v _sqoJ = false; 
en 


Ln, Libnamdescr, (nk$gl_curfil tops usrnamlen]) 
in ‘ti il Lfdb 
TIR RECORDS, OPEN WITHOUT SQO... 
| 


current_ifi = .lnk$gl_curfil Cfdb$w_ifi); 
if -oux tno Cnam$u_fid_num] eql 0 


then n 
input fab Cfab$Sb_fns] = .ink$gl_curfil (fd 
fab$i-fna) = .ink$gl-curfil tebe vernentar 3 
= fil (fd 
= fil (fd 


FILE APPENDED TO THE LIST OR FILE HAS NEVE 


it — NEVER BEEN OPENED, SO SET 
THE FILE NAME LENGTH AND ADDRESS 
AE DEFAULT NARE STRING SIZE 


ADDRESS 
OTHERWISE, CAN*T USE NAME BLOCK OPEN 
OTHERWISE SET OPEN BY FILE ID FLAG 


SSLESRENLSS 


vuvvUvU 
See hg era yo SR it rman Ra Ata ant Samara 
eee 
a r 
soe 
von 


MFwn—o 


DAI VIAM MA 


input” fab 


fab$b_dns - ink$gl"cur 
input_ fab 


fab$l-dna - ink$gl"cur 
else Ss a Cfab$Sv_nam] = true; 


Pw tt 
Sw —SSaxse 
DOCSCDSOSOOOCSCOOSOCO 


WMAnAnnu 
a is 


end; 
ra. _sty = .lor$gl_rmsstv; THERE WAS AN ERROR. SET STV 
en 
else begin 
if Ys curfil Cfdo$v_shrj 
then be 
input. fab Cfab$v_sqo = false; 
input_fab Cfab$v_ =bre = 
input_fab Cfab$v_ =upi 
input_fab Cfab$v_shrget] = true: 
input. fab Cfab$v_-shrput] = true; 
en ao 
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LINKER SRETLNKOBJE IL 682:1 ve is vo. 
4 1 oF » es 1 curfil Cfdbsv_librJ ! IF FILE IS A LIBRARY 
405 1 then i THEN OPEN DIFFERENTLY 
4 1 ‘9 (open_sts = ps f -tyrrent, ifie ogt 0 
4 1 penlib (.auxfnb) 
¢ be pon true 
& ? § then begin 
41 f -LnkSel, Stine Cink$v_intfil ! JF THIS IS THE INTERNAL SHAREABLE IMAGE ST 
tig 4 and .nextint gat ' (REMEMBER N ee LAE HAS BEEN DECREMENTED 
rt é then of ae = glcurfil Cfdb$v_imglib] ! BUT DID NOT TURN OUT TO BE SHAREABLE IMAG 
15 signal a notin ! ISSUE THE MESSAGE 
16 § ° nk$§l_ rhs) ttabsq. filename] 
13 0 ink$closefile (. fabsyel curfil); ! CLOSE THE FILE 
1 1 ink$gl_curfil tte $v_(Tbr) = true; ! FORCE DESCRIPTOR TO EVAPORATE 
, ¢ ——s “Lnk$Snxtf ! RECURSE TO DISPOSE OF DESCRIPTOR AND RETUR 
§ ink$gl_record = 0; ! INIT RECORD COUNTER 
t 5 return true; 
‘ 
8 


MOTIPOTORoToToTnon 


IF A SHAREABLE IMAGE FILE SET TO OPEN FOR 


! NOT SEQUENTIAL ONLY 
ECORD AND BLOCK OPERATIONS 
ACCESS 


REUSLSS 


iT 
Cad 
+f: 
“ww 
= 
> 
Zz 
m 
LJ 


; HARED GETS 
! AND PUTS (LINKER DOESN'T, BUT MUST SET SO 
! CAN READ IT IN CASE INSTALLED /WRITE) 


| iat et ek ak ak at al ee at ee ae et ak ae at bt bt ot pk be et eee 


7 Ry ate ifi eql 0 


439 Sect ii salnfitestere Tec Jpi|st); 

440 nk$gl 

441 then Lnk$closefile (); ! THEN CLOSE DOWN A FILE 
4 open_sts = openit ’ 


ras Sty = .input_ tab’ Cfab$l_stv] ; PICKUP SECONDARY STATUS 
en 


else open_sts = true ; 


if .open_sts ' GF SUCCESSFUL 
then begin 
if -inkSol. curfil Cfdb$w_ifi] eql 0 


eas ah ah ah Ab th eh ah ah ah ah ah dl ab abla www Ww Ww wT) 


PAEADXPEXAPMMAMNMANNII SS BEEP LEE 
WN =O OONOUE WN" O OONOU SW O0O- 


SOOOOCOOOCOCOOCOOCOCOCOOCOOOOOOOOOCSOO COO OOOOOOOO OOOO OOOO OOOOO OOOO 


DEB DDT BMA BBB EEE EMME BEEF FAIA & PT BB BB PUTT 


then 
564 tnkSgt curfil Cfdb$Sw_ifi] = .input_ fob Cfab$w_ifil; ' SAVE IFI FOR LATER CLOSE 
565 h$move (dsc$c_s_blih, Lnk$filnamdSc (input_fab) ' SAVE THE RESULTANT FILE NAME 
366 sinks. seurtil Cfdb b$q_filename] i “IN CASE OF ERROR LATER 
56 end 
569 else input_fab CfabSw_ifi] = .ink$gl_curfil Cfdb$w_ifi); ‘IF FILE OPEN, USE ITS IFI 
30 -lnk$al_rab Crab$l_ubf] eql 0 ' ALLOCATE A USER BUFFER (IF NECESSARY) 
572 shel begin ! WITH A SIZE WHICH IS 


AND TRY AGAIN 
| 
i 


Nn 9 
LNK_OBJFIL 16-Sep-1984 00:10: AX-11 Bliss-32 V4.0-7 Page A 
ive ti 19-808-1 382 99:19:33 LINKER.SRCIJLNK jf1LB 2;1 . 3) 

461 i ink$al_rab Crab$w gt?2 = biS¢ arse ae ! MAX ALLOWABLE OBJECT RECORD 

i f amet tobe ESE ae Beate abst bot ab tagegs 

gv “u . 

tee ug end; ! AND FOR READING LIBRARY HEADERS 

$08 8 ink$al_rab preps. fob] = = {nout. fab; ! SET FAB POINTER 

46 7 ink$al"rab Crab$w_i ! ENSURE IT IS RE-USABLE RAB 

468 0 if (opén_sts = $connect Ad =lnk$al rgb): ' AND ATTEMPT TO CONNECT IT 

069 1 rms_Stv = .ink$al_rab Crab$l_stvJ; 

ry ¢ -open_sts 

47 : then basin ! AND IF SUCCESSFUL 

$f? : 5 f .lnk$gl_curfil Cfdb$v_shrJ } tg a, ns IMAGE 

475 5 then begin i THE RECORDS OF THE FILE I.E. 

47 588 input_fab Cfab$v_esc] = true; ' RMS SMODIFY FUNCTION WHICH WILL TELL 

if BRR iout=fae EAabaacefed © Fagbeceeer™™ | Mined ins FILE, enon thougn_ 1 

479 8293 if (open_sts = Smodify (fa sife put. ‘te ds i THE RECORDS OF THE FILE ARE FIXED 

480 236 rms_Stv = .input_fab fabs l_Stv 

$3) S207 -open_sts 

ret B2a2 then (Lnk$gl_record = 0; return true) ! AND THAT IS ALL IF IT SUCCEEDS 

en 
ont 0397 4 else (lnk$gl_record = 0; return true); 
end; 
$6 99 end; ANY OF THE ABOVE FAILS 
488 89 end; LE WAS NOT A LIBRARY 
4 8 ink$closefile (.ink$gl_curfil); ge hes B 
04 errorcode = Lin$_openin; ERROR CODE 


IF AN INTERNAL FILE 
THEN NOT FATAL 
OTHERWISE IT IS 


FIRST THE LINK PASS NUMBER 


sts$v_severity] = sts$k_info” 
sts$v_severity] = sts$k_severe; 


then errorcode 
else errorcode 


if .ink$gl_ code'fs Cink$v_intfil] or .default_lib 


signal (.errorcode,1 
oink $filnamdsc (input. fab) 
open sts, .rms_stv 


if .lnk$ t _curclu Celu$v_intclul 
then be 
in $gl_ curclu fetust= shrist 


IF THIS IS INTERNALLY CREATED CLUSTER 
CLEAR INFO LEFT AROUND FOR CONSISTENCY CHE 


ink$gl-curclu Cclu$t-adrcnt 
Lnk Sg curclu Celu$l=adrleft) 
end; 


i] 
‘ Now, if we bombed out t while trying to open an internally materialized 
: shareable image, we'd better get rid of its cluster descriptor, too 


if .lnk$gl_ctlmsk Hae ofan tit. : FILE Ped ry MATERIALIZED 


-Lnk$gte curfil i‘ AND I 
and .ink$gl-curclu (clu$v_intclu ' CLUSTER IS Ces MATERIALIZED 
» ink Sgt curclu i AND IS SHRIMG CLUSTER 

gin 


and 
then be 


at I OTCO 
SOOONOUSWIN OO 


LESRESSS 


cluSv-shriag 


Be Se Se Se Fe Ge Se Fe Se Se Oe Oe we BF Ge FH Fe Se Se FH Se Be Se FH He Be Se FH Ge Se Se Se Se oe FHS Se Se Se Se Se Se Oe Se Se FH SHS Se Ge Se SH ee Se Se See 
PLE EE 
RESLSSEES 
SESSESSSSOSSSED 
IES 
uw 
CRPRIPIPIPINIPIPIPIPINIAAAPPIPIPIPIPIPIPIPIPINIPIPINDINI ME DP NINA PAPI & EIN 
na~e> Nee 
ma &w 
=“n- 


PPMP 
eS woos 
NOUS WN OC O@ 
Roronononononosfronony 
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PAPA AAAA OS 
FU" OOONOUE WIN O 
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oo 
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bind nxtclu = Ink curclu Felugt. nxtclu]_ : ref block fF. byte], 
prevclu = Ink ete clu$lZprevclu] : ref block C,byte] ; 
if .prevclu neq 0 ! JF NOT FIRST CLUSTER, 
then prevclu Ce cut _nxtclu) = .nxtclu; i THEN SET PREVIOUS CLUSTER'S 
! FWD PTR TO THE nt PP USTER 
if .nxtclu neq 0 ' IF NOT LAST CLUSTER 
then nxtclu cetust _prevclu] = .prevclu; i THEN SET THE NEXT CLUSTER'S 
end; ' BACK PTR TO PREVIOUS CLUSTER 
ink$gl_curfil Cfdb$v_libr] = true; ! UNCONDITIONALLY MAKE IT A LIBRARY SO THAT 
' IT'S DESCRIPTOR WILL BE EVAPORATED 
return ink$nxtfil ©; ' RECURSING TO DISPOSE OF ITS DESCRIPTOR 
end; ! OF LNKSNXTFIL ROUTINE 
SRMS_PTR= INP 
EXT SYSSDISCORNETT, SYSSGETJPI 
«EXTRN SYSSCONNECT, SYSSMODIFY 
OFFC 00000 . ENTRY LNKSNXTFIL, Save R2,R3,R4,R5,R6,R7,R8,R9,- = 0329 
5B 000000006 00 9€ 00002 MOVAB LNKSeL _CTLMSK, R11 : 
SA 48 CF 9E 00009 MOVAB LNKSGL-CURFIL, R10 : 
59 000" CF 9€ 00005 MOVAB NEXTINTFIL, R9 : 
50 6A 06 0001 MOVL —LNKSGL "CURFIL, RO : 0372 
16 12 00016 BNEQ 1$ 3 
000000006 00 000000006 00 o00 BOO MOVL LNKS$GL_CLULST, LNK$GL_CURCLU 3 0374 
F8 a9 000000006 00 08 C1 0002 ADDL3 #8, LNRSGL_CURCLU, PREVIOUS_FDB > 0375 
65 11 0002C BRB 3 0372 
09 0B AO gS OO02E 1$ BLBS 11(RO), 2$ : 0378 
02 000000006 00 91 000 CMPB LAKSEB_PASS. #2 ; 0379 
9/ 12 000 BNEQ 3 
0 DD 00038 2$ PUSHL RO ; 0380 
0000v CF 01 FB 8378 CALLS #1, LNKSCLOSEFILE 3 
91 000000006 00 91 3 3$ CMPB LNK$GB PASS, #1 ; 0382 
or 004 BNEQ re é 
50 6A B 0048 MOVL LNKsét ct ale RO ; 0383 
0B 8 02 004 BIS82 3 
5 6A 00 B82 4$: MOVL PAL CURF RO ; 0385 
23 OA AO 01 €1 0005 BBC $ ; 
04 AO 3 BRA TSTL ; 0386 
if 1 D BNEQ 3 
50 DD 0005F PUSHL ; 0388 
0000V CF 01 F 61 CALLS mee CSE ANE 3 
51 FB OAD OD 66 MOVL a vious R : 0389 
61 00 BA p 006A Ov @LNKSGL srURFIL” (R1) : om 
50 000000006 00 OD i MOVL LaKSGL pyRceu. RO ; 0392 
0c AG 1 =O 7 MOVL : 
4 11 7B BRB ; 0385 
FB Ad 0 OD 70 5$: MOVL RO, PREVIOUS _FDB : 8 98 
50 6A D 1 6$: MOVL Bens) CURFIC, RO ; 0400 
24 AO 8 TST 3 
OA 7 BEQ ; 


SL sss 


10 
-Sep-1984 00:10: AX-11 Bliss-32 V4.0-74 
Uwe 0B FIL 1SSeoct9Re 00:10:55 yARGt1 Bling 32 v4. 0-748, 
B8 AA OF 9 PUSHAB LNKSAL_RAB 
ALLS #1, SYSSDISCONNECT 
ones. gr F8 89 i 7$: nOvL @PREVIOUS_FOB, LNKSGL_CURFIL 
5 AD 99 MOVL LNKSGL CURF IL RO 
03 0B OA ne 6 . BBS r} TRO), 9$ 
01 000000006 00 Me gf: CPB NKSGB_PASS, "1 
50 000000006 : p OAD 108: OVE LNKSGL_CURCLU, RO 
NEG  12$ 
01 000000006 ; } BOae is NKS$GB_PASS, #1 
iF 1 O08 BNEQ 
Te Sieh gee agtinnen 
000000006 09 : 00¢5 IST LNKSGU_NUDF SYMS 
03 69 Hi O0¢D CHPB NEXTINTFIL, #3 
00D BBS #6, LNKSGL_CTLMSK+2, 13$ 
“ is é9 5} 0007 11$: IsTB pe 
03 01 AB a i ane - BBS We LNKSGL_CTLMSK+1, 13$ 
52 82 8F 9A OOOE 188 MOVZBL #130, FILEFLAGS 
04 Bg A9 EB O00E7 LBS FIRST_TIME, 14 
” 83 AS G2 pope | BLBC DEFAUCT IG. 178 
08 02 AB 06 £1 B00Fe BBC #6, LAKSGL_CTLMSK+2, 15$ 
0000v CF 98 cs por CALLS #0. TRAN_NEXT_LIB 
FS 02 5 OOFF 15$:  MOVB #2, NEXTINTFIL 
09 AD 94 0198 CLRB_ ss DEFAULT_LIB 
02 40 8F 8A 0010 BICB2 #64, LNRSGL_CTLMSK+2 
0D 01 AB 0008 7 010A BBS fe LNKSGL_CTLMSK+1, 17% 
09 «Ad os 01 0 112 16$: ROVE a aPEFAULT LIB 
69 03 #0 0119 MOVB ye NEXTINTFI 
02 3 91 Q1ic 17$: CMP NEXTINTFIL, # 
03 02 $f 121 BBS #4, LNKSGL_CTLMSK+2, 18$ 
$0 1 3 1 $ MOVB ot] XTINTF IL 
os 09 «Ad 129 18$: BLBS DEFAULT_LIB, 19$ 
1 69 5} CPB N XTINTFIL, wi 
19$:  MOVAB LNKSGL_DEFCLU, LNKS$GL_CURCLU 
sore om iE TP ett 
000000006 9 p 143 Ist LNKSGL_DEFCLU 
G 9€ 00140 MOVAB LNKSGL_DEFCLU, RO 
38 itdaittdts Q i i: CPL NKSGL-LASTCLU, RO 
15D MOVL LNKSGL_LASTCLU, RO 
20 adits 8 BF 164 MOVAB LNKSGL“DEFCLU, (RO) 


Fee Se Se Se Se Se Se Ge Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Be Se Ge Se Ge Ge Se Se Be Be Be Fe Se Ge Be Se Be Ge Se Se Se Se Se Se Be Se Se Be Be Be Be Be 


Sooo SOOCCOCOOSCO COCOOO 
SPP PEPPERS PPP ES 

WWAIWIWIPOPORY oo POPU eS 
YVINNM —NOUOONOU WR—oOown~ 


So 
> 
= 
~m 


err S&S 


dD 10 
aa3ep-19b6 $2:40:82 EC TnRERsSRESLNKOBJFTL -082:1 eet 


1 
1 
MOVAB LNKSGL_DEFCLU, LNKSGL_LASTCLU 


Saar 


000000006 G 9E 001 : 0453 ; 
OS BBRHEERSE BR SE SSE ous, QBN BAL PEELY. M8); 
FB OA ¢ AO 00 001 MOVL 2(RO)> PREVIOUS_FDB ; : 
FB AD DD 001 PUSHL PREVIOUS FB > 0458 : 
000000006 00 01 FB 001 CALLS #1, LNKSALLOFDB ; : 
A FB BS D0 001 MOVL aphey ious FDB, LNKSGL_CURFIL > 0459 : 
0 000000006 00 00 001 MOVL §LNKSGL_CURCLU, RO : 0460 : 
A 00 001 MOVL LNKSGL CURFIL, R6 ; : 
oc A 19A MOVL R6, 12° 5 ¢ 
A a6 196 MOVE  FILEFLAGS, 10(R6) > 0461 : 
OF 09 =A 1A BLAC_ DEFAULT Lis, 21$ > 0463 : 
OF Ab 0110 C9 9 é 1A6 MOVC3 #8, LIBRAMDESCR, 12(R6) : 0465 : 
4 6 EO Ag OB 18 move a8, LIBDEFEXT, 20(R6) : 046 ; 
50 69 9h 001B5 218: — MOVZBL_ NEXTINTFIL, RO + 0469 : 
BB A940 7F 00188 PUSHAG INTFILTBL~BCRO] : : 
0C Ab 9 08 : 1BC MOVC 48, a(SP)+, 12(R6) : ; 
14 6 DO A 1C1 MOVCS #8, SYSLIBDEFEXT, 20(R6) i 0470 ; 
04 09 Ag Qicy 228: LBS, FAULT LIB, 23$ ; 047 : 
01 AB 08 88 O01cB BISB2 #8, LNKSGL_CTLMSK+1 > 0474 : 
O1CF 23$:  DECB NEXTINTFIL > 0475 : 
1 11 00101 BRB & > 0414 ; 
000000006 90 60 DO 105 24$:  MOVL (RO), LNKSGL_CURCLU > 0479 : 
0 000000006 00 00 OO1DA OV NKSGL_CURCLO, RO ; 0480 ; 
01 AB 08 8A OOiES BICB2 #8, LNKSGL_CTLMSK+1 i 0482 : 
6A be O1E7 258: CLRL NKSGL_CURFIL : 048 3 
0242 1 OO1E9 BRW > 0484 ; 
FB OAD 08 A 3 QIEC 268: — MOVAB_B(RO), PREVIOUS_FDB : 0486 ; 
FEOF O1F1 BRW > 0406 ; 
57 6A DO 001F4 278: = MOVL LNKs L_CURFIL, R7 > 0489 ; 
56 26 «A? «OE O01F7 MOVAB 38(R7)> AUXFNB ; ; 
50 D4 OO1FB CLRL OR : 0490 ; 
02 000000006 oe 91 OO1FD CHPB LNKSGB_PASS, #2 : 
: D6 00306 INCL RO ; : 
51 0B A? 01 02 EF 99 288: EXTZv #2, #1, 11(R7), RI : 
58 50 51 bs 021 pices R1. RO, TURN_SQO_OFF : ; 
0050 8F 00 6E cr7o 09 26 20813 movcS #0, (SP), #0; #80, SRMS_PTR ; 0497 ; 
FF70 C9 5003 SF BO O02TF MOVW #20483, SRMS_PTR : ; 
FF74 C9 40 BF 9A 00226 MOVZBL #64, SRMS_PTR+4 ; ; 
6 Ag 30 MOVB » SRMS BIR+ 32 : ; 
FAQ MOVB #2, S$RMS-PTR+ : ; 
98 Ag D MOVE AUXENB, SRMS_PTR+40 : F 
A6 AD 0800 BF 8B MOVW #2048, SRMS_PTR+54 : : 
0D : é BLBC TURN_SQO_OFF, 29$ : 0499 : 
DD 6 4 PUSHL : 0501 ; 
0000v CF 1 FB 0024 CALLS #1, LNKSCLOSEFILE ; 
FF74 C9 40 8F BA 0024 BICB2 #64, INPUT FAB+4 ; 9502 
5 6A D0 0024E 298:  MOVL NKSGL _CURFIL RO ; 050 
5 4 A MOVZWL 36(RO); CURRENT_IFI : 

6 OA é TSTW (AUXF NB) : 0507 

AG Ag AB 96 0095, ROVE —72¢R0), INPUT _FAB4S2 ; 0509 

9¢ A %% A D F MOVL 1 (RO). INPUT ~FAB+44 : 0510 


Sag 


AS 
AO 


FF77 
50 OA 


0000Vv 


03 01 


000000006 
0000v 


een 
86 


000000006 


0000V 
FCB9 


a 
000000006 
14 «Al 


14 =A 
rar 
1 
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9109 
69 
F8 
6A 
0B Ae 
14 ay 
000000006 er 
6A 
01 
0161 
000000006 00 
“ 
40 af 
4340 i 
E 
7E 
000000006 90 
E 
i 
000000006 9 
0 
FF7C 
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1 
6 
6A 
24 Ad 
i 
rere ¢ 
FF7 ’ 
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: 
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NPUT_FAB+5 
NPUT_FAB+4 


(RO), 1 
i$ pone 8 
» OChOy Sas 
é RENT_I 


' 
Ff 


te UN LNKSOPENL IB 
RO, OPEN_STS 


OPEN STS; 36$ 
CNKSGL_CTLMSK+1, 
NEXTINTFIL, #1 
ih -CUREIL, RO 
20(R 
AL INS No NOTINGL IB 
$SIGNA 


LNKSGL RIL. 
CNRSCLOSEF ILE 


LBRSGL_RMSSTV, RMS_STV 
“e388, 
"twa BF AB+22 


35$ 


LNKSGT_JPILST 

=(SP) 

#7, SYSSGETJPI 
LNKSGL_FILESLEFT, #3 
#0, LNKSCLOSEFILE 

r T 


OPEN ST 
INbUT FAB 12, RMS_STV 


at 36 (RO) 


LAKSF IL LNAMDS 
thse tune L, R 
18, (RO), 20(R1) 


Page 
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LIK _OBJF IL 16-Sep-1984 00:10: AX-11 Bliss-32 V4.0-7 Pa - 
ive itd 12: et 90:19:33 LINKER. SRCJLNKOBJF IL. 3 2:1 - (33 

FF72 «9 24 AO B 3A 438: mMOVW 36(RO), “ality. FAB+2 : 569 ; 

DC AA p 40 44 TSTL LNKSAL + 0571 : 

14 4 BNEG r : 3 

D8 AA 0800 FF 4 MOVW of 48, ‘uate _RAB+32 : 573 : 

? DB AA 3 OOR8GE MOVZUL LNKSAL AL cbs 33 (SP)  O8he 

000000006 0 02 FB ; CALLS Me LNRS LLOBLK F : 

Fo OA FF70 «CC 9 45$:  MOVAB Heat FA, 8 GNKSAL. RAB+60 ; 0578 : 

Ba AA OF O08 BUSHAB LNK Ae : 0880 

000000006 00 1 F g CALLS SYSSCOMMECT F : 

6 0 D c MOVL RO. OPEN STs : ; 

C4 AA OD f MOVL LN SAL» ve 338" RMS_STV ; 0581 : 

: 56 E 3 BLBC  OPEN_S ; 058¢ : 

6A D0 18 MOVL UAE : oRFIL RO : 058 ; 

23 OA AO 2 Fi 7 BBC #2, 10TRO), 46$ : F 

FF77. C9 8 0037 BISB2 #8, INPUT_FAB+7 : 0588 ; 

Hy Ag 1 8? MOVL #1, et at ete 3; 0589 2 

FAQ é MOVE = #2 T7FAB+ : 0590 : 

FF70 «C9 OOF PUSHAB Ne + 0591 ; 

000000006 90 gi F 0 F CALLS + SYSSMODIFY : : 

$ g D MOVL ; : 

5 FF7C DO 00 MOVL RO. OP case RMS_STV : 0598 ’ 

07 6 £9 00 Hi BLBC te $ : 059 ; 

B4 AA D4 OO3A1 46$: = CLRL tnx "Record : 0597 : 

50 01 DO 003A4 MOVL : : 

04 003A7 RET : : 

6A DD 003A8 47$: — PUSHL LNKSGL CURF IL + 0602 ; 

0000v gf t FB OO3AA CALLS LNESCL LOSEF 3 ; 

2 000000006 8F DO OO3AF MOVL ain OPENIN Shee + 0604 : 

04 01 AB 03 £0 00386 BBS LAKS cf LNs +1, 48$ : 0606 ; 

,. oF 09 Ad €E9 0038B BLBC OsCéOD Fay rte. : : 

52 03 00 3 FO BF 48$: INsv 1 a ERRORCODE + 0607 : 

52 03 00 4 FO 003C6 49S: INSY #4, #0, #3, (ERRORCODE : 0608 ; 

7E 6 7D 003CB 50$: # mova OPEN SfS, -(SP) : 0612 ; 

FF70 C9 OF 003C PUSHAB INPUT F : 0611 ; 

000000006 00 1 FB 003D CALLS ’ Ter psc : ; 

0 DD 0030 PUSHL RO : ; 

01 DD 00308 PUSHL #1 : 0610 ; 

é DD 00300 PUSHL ERRORCODE : : 

000000006 90 F DF CALLS #5, LIBSSIGNA ; : 

0 000000006 00 00 00366 VL —s LINKS . CURCLY RO + 0614 : 

06 59 AO 1 5 E C } TRO), 518 ; 3 

30 AO ?C 003F CLRO ‘ iR : 0616 : 

AO 04 003F CLRL 36(R ; 0618 : 

24 01 AB 03 €1 0 FB S1$: BBC #3, ONKSGL CTLMSK+1, 53$ : 06 ; 

51 A 00 F MOVL LNKSGL_CUR R ; 0626 : 

I¢ A Al é E1 04 BBC #2, 10TR1), : : 

1 9 Ad E1 004 C “i. : (RO), 53$ + 0627 : 

12 8 A E1 0040A BBC #2. 88(RO). 53$ : 06 : ; 

51 04 AO DO 0040F MOVL 4(RO), RI : 06 : 

03 13 0041 BEQL 52$ : ; 

61 60 dO 0041 MOVL (RO), (RI) > 0634 : 

0 D 18 528: MOVL (RO); RO : 06 ; 

4 13 00418 BEQL 53$ ; : 

04 Ad 1 pO 0041D MOVL 1, 4(RO) > 0637 3 


vou=800 | WEHSe=19NG QR:ABSEE UMGdUNPLARNobh 7, Page 


5 421 538: LNK$ CURFIL, RO ; 0640 
.- d th mi RO) 
ae RRR he ae ou 
50 p4 HOE 548: a 0 7 0644 
4 004 RET $ 

; Routine Size: 1073 bytes, Routine Base: S$CODE$S + 0040 


5 ae 
ww 


CaS Ooo OA an Dee 


WIV 
vim 


SESSCS OS OSS SSCS ESTES 


o 
CAP car > Ooo WA Ps ODO OO 


S232 


3 


MAAN 
fe) 


o oa 
AP ose 
OOOO NN NN NNN NO 
—OOONOUES WN OO 


Rtatotatottotatetatatatatatatats 


uw 


SEIS IIS eS 
SSEsee 


ooo 
— 


ty eal ah al ab sb sh db ab sh ah sh sh db dh ab 4h ab ah ab dh oh dh ahah ab ab dh sb dh al eal 
WwnmM 


SESSSSSSSES 


S332 


pA Ap Ab Ap Ap APA 
SSRRAV= 


H 10 
eaSep-t9be 12:40:82 EC TnKER-SRESLAKOBJFIL-082; 1 a 


global routine ink$nxtrec (recdesc) = 


READ NEXT RECORD FROM CURRENTLY 
THIS ROUTINE ACQUIRES RECORDS $ 
ND OF FILE ECT 


_ 
| 
nn" 
L=J 
m 
~ 
m 
o 


LE. 
LLY 
C READS RETURN 
THE ADDRESS AND LENGTH OF NEXT ND THE ROUTINE 
HAS THE VALUE TRUE 


o-- 
® 
ao 
a 
=) 


recdesc : ref block C,byted; 


stvcode, 
readerror, ' READ ERROR CODE 
bufdesc : block Cdsc$c_s_bln, byte]; ! DESCRIPTOR FOR BUFFER 


bind auxfnb = Ink$gl_curfil Cfdb$t_auxfnb) ! REFERENCE THE AUX. FILE NAME BLOCK PART 
: block Cnam$c_bln, byte]; 


' 
it - Unk$ Lcurfil Cfdb$v_librJ ! IF READING A LIBRARY FILE 
en begin 
bufdesc Cdsc$w_length]_ = .lnk$al_rab Crab$w_usz]; ! SET UP DESCRIPTOR FOR BUFFER 
bufdesc (dsc$a_pointer] = .ink$al_rab Crab$l_ubfJ; 


readerror = lbr$get_record ( Zref(.ink$gl_curfil Cfdb$w_ifil), bufdesc, bufdesc); ! READ A RECORD 
ink$al_rab Crab$l_stv] = .lbr$gl_rmsstv; 
ink$al_rab Crab$w_rsz] = .bufdesc Cdsc$w_length); ! SET INFO INTO RAB 
eet ree rab$l_rbf] = .bufdesc dsc$a_pointerd; ; 

n 


e 
else readerror = $get (rab=|nk$al_rab); 


NOT LIBRARY, JUST DO A GET 


IF THERE WAS AN ERROR OTHER THAN 
AND IF AN ERROR OTHER iriAN 

END OF FILE 

SAVE STV_OVER CLOSE 

ATTEMPT TO CLOSE IT 

ISSUE READ ERROR MESSAGE 


if not .readerror 
then if .readerror neq rms$_eof 
then begin 
stvcode = .lnk$al_rab Crab$l_stv]; 
ink$Sclosefile (.lAk$gl_curfit); 
signal ( Lin$_readerr, 1 
, Unk$gl_curfil Cfdb$q_filename) 
-readerror, .stvcode 


return false; 
en 
else return false; ' ALL DONE IF END OF FILE 


ink$gl_objrecs = .lnk$gl_objrecs + 1; ! 
ink$gl_record = .lnk$gl_record + 1; 


recdesc pascdu_longeh? = .lnk$al_rab Crab$w_rsz]; ! RETURN LENGTH AND ADDRESS OF THIS 
recdesc ([dsc$a_pointer] = .lnk$al_rab Crab$l_rbfJ; SUCCESSFULLY OBTAINED RECORD 


return true AND ALL IS DONE 
end; OF LNKSNXTREC ROUTINE 


10 
LNK_OBJFIL 1b-3e -1984 00:10: AX-11 Bliss-32 V4.0-74 Page 21 
rive itd 1 ~300-} 387 90:18:33 LINKER. SRC ILNKOBJFIL.B 2:1 . d 
.EXTRN SYSSGET 
001¢ -ENTRY LNKSNXTREC, Save R2,R3,R4 3 0645 
4 0000 gf 9 HOVAR LNKSGL_CURFIL, R4 : 
6 f 5 A abut ted . CURFIL, RO + 066 
a6 A oR 81 E BBC fi, Sieky § : 066 
4 AE D8 AG 80 1 MOVW LNKSAL_RAB+3 » BUFDESC t 0667 
8 AE DC AG 1 VL __ LNKSAL~RAB+36, BUFDESC+4 + 0668 
4 AE 9F 0001C PUSHAB BUFDEST + 0670 
8 AE 9F OOOTF SHAB UFDESC ; 
08 AE 4 Ao 3¢ 3 MOVZWL 36(RO), 8(SP) : 
8 AE OF PUSHAB &8(SP : 
000000006 Q F A CALLS #3, LBRSGET_RECORD ; 
D 1 MOVL RO. READER : 
C4 A& 000000006 D MOVL §LBRSGL_RMSSTV LNKSAL RAB+12 : 067 
DA AG 4 AE B f MOVW BUFDEST, LNKSAL_RAB+3% : 067 
£0 8 AE D 4 MOVL FDESC44, LNKSAL_RAB+40 + 0674 
0D 11 00 46 BRB + 0665 
B8 AG OF 00048 1S: PUS LNKSAL_RAB : 0676 
000000006 0 1 F 904 CALLS #1, SYSSGET ; 
4 DO 0005 MOVL RO, READERROR : 
D E8 00055 2$: BLBS § READERROR, 3$ + 0678 
0001827A =F D1 005 CMPL § READERROR, #98938 : 0679 
B 13 005F BEQL 4 ; 
52 C4 «AG DO 00061 MOVL § LNKSAL_RAB+12, STVCODE > 0681 
64 DD 00065 PUSHL LNKSGL~CURFIL + 0682 
0000v CF 1 FB 00067 CALLS #1, LNRSCLOSEFILE ; 
é DD 906¢ PUSHL  STVCODE + 0685 
DD 00 6 PUSH READERROR : 
7E 64 14 C1 0007 ADDL3 #20, LNKSGL_CURFIL, -(SP) + 0684 
91 DD 00074 PUSHL #1 ; 
000000906 8F DD 00076 PUSHL #LINS_READERR : 
000000006 00 0S FB 9907¢ CALLS #5, LIBSSIGNAL ; 
17 (11 0008 BRB 43 : 0689 
BO Ad D6 00085 38: INCL — LNKS$GL_OBJRECS : 0691 
B4 AG D6 0088 INCL  LNK$GL~RECORD : 0692 
50 04 AC DO 00088 MOVL RECDEST, RO + 0694 
60 DA A& BO 0008F MOVW § LNKSAL_RAB+34, (RO) : 
04 Ad EO A& DO 00093 MOVL LNKSAL“RAB+40, 4(RO) + 0695 
50 01 v0 0098 MOVL #1, R : 0697 
4 00098 RET 3 
50 D4 0009C 4$: CLRL = RO + 0698 
04 0009E RET F 


; Routine Size: 159 bytes, Routine Base: 


SCODES + 0471 


1b-Bep-1984 00:10:55 YAnet! BLissd32 v4.0-742, Page 22 


3 


é 
w283 


oO 


$s 
HAT NO RECORD IS 


SSSSSssy 


a 


modrfa : ref block C,bytel; POINTER TO RFA BLOCK 


hdrdesc : block i a s pin. ,bytel, ' STRING DESCRIPTOR FOR MODULE HEADER 
ibaoghdr : ref block C,Bbyt 
reclng; 


bind auxfnb = Lnk$gl_curfil Cfdb$t_auxfnbd] 
: biockCnam$c_bln,byte); 


if .ink _curfil Cfdb$v_librJ 
then begin 
local modnamdesc s plockh fecte. s_bln, byte? ° 
header : block Lbr$c_maxhdrsiz, byte); 


if yoy pass eql 1 ! ONLY READ HEADER ON PASS 1 
en be 
hdrdesc pescéu. Length) = Lbr$c -maxhdrsiz; ! SET UP DESCRIPTOR FOR HEADER BUFFER 
hdrdesc Cdsc$a_pointer] = header 
af not (status = Lbr$set_module inret (.ink$gl_curfil Cfdb$Sw_ifi]), .modrfa, hdrdesc)) 
hen 


! POINTER TO LIBRARY MODULE HEADER 
LENGTH OF RECORD 


REFERENCE THE AUXILIARY FILE NAME BLOCK PA 


IF THIS IS A LIBRARY FILE 


Py Pe SS ey ye ee ie ee ie ee be ee 


eee ot _rab Crab$l_sts] = .statu ! ERROR = SET CODES INTO RAB 
(niga rab Crab$l"stv) = “Torsgt, rmsstv; 


en 
else begin 

if .header Cmhd$v reise ed 

then ink$gl_curfil Pige v_selser] = true 
else ink$gl-curfil Cfd 


See SSSSSS2e 


! IF MODULE IS SELECTIVELY SEARCHED 


MIIPS 
DOnNOu 


b$v_selser] = false; 
return true; 


end; 
end 


else begin PASS 2 -- rtee TO FIND MODULE 
status = lbr$find (Zref (.lnk$gl_curfillfdb$Sw_ifi]), .modrfa); 7 p corel ¥ O READ MODULE 
if .status then return true; L DONE IF SUCCESSFUL 


modnamdesc Cdsc$w_length]_ = .lnk$gl_curomd ponds. nanlog); ! IT APPEARS TO HAVE DISAPPEARED. 
modnamdesc [dsc$a_pointer) = \ink$gl“curomd Comd$t_nam ! TRY A LOOKUP IN CASE IT WAS MEREL 
status = Lbr$lookip_key (Zref (.ink$gl_curfil CfdbSw_ amet 4), modnamdesc, .modrfa) ; 

f .status then return true; 


ink$al_rab Crab$l_sts] = .status ! ERROR--SET CODES IN RAB 
inkSat. rab Crab$l“stvJ = "Torsgl. rmsstv; 
end; 


else eee ! FILE IS NOT A LIBRARY 


AAPA AAAAAAAAAAAAAAAAAAOAAAAAAAH 
LQ NNN 


SSSFRFGS= 


Eas routine Lnk$pointobj(modrfa) : novalue = 
ioe 
i 
THIS ROUTINE IS FALLED DURING LIBRARY OR SHAREABLE | 
5 THE REQUIRED PARTITION IN THE FILE GIVEN BY ITS RFA. 

FOR BRARY THE NEXT GET WILL READ THE LIBRARY MODULE’S HEADER RECORD. 
FOR AREABLE IMAGE FILE MERELY DO A FIND BY RFA SO T 
SKI 1.E. NEXT GET GETS RECORD POINTED TO. 

4 

4 

; 

4 

4 

4 

4 

4 

4 

4 

4 

4 

& 

4 

& 


ocooococooscocsssssssssssssoececcco 
ae 


rSSSS55 
MPwnN—O 


: 
seogserers 


PAAAAAAA AHO 


vw 


Se Se Ge Se Ge Se OH Se Ge Ge Se Se Ge Ge oe 
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16-Sep-1984 00:10: AX-11 Bliss-32 V4.0-74 Page 23 
137388-1 384 90: 10583 LINKER. SRCILNKOBJFIL.B 2;1 . (33 
ink$Sal_rab Crab$b_rac) = rab$c_rfa; ! SET TO ACCESS BY RFA 
ink$al-rab [rab$lirfa } = snort a Frisst_von3: ! SET UP RFA 
ink$al_rab LrabSw rfa4) = .modrfa ([rfa$w_offset); 
status = $find (rab=|nk$al_rab); ! PERFORM THE FIND 
ink$al_rab Crab$b_rac] = “rab$c_seq; ! RESET TO SEQUENTIAL ACCESS 
at :8titus then return true; ! ALL DONE IF GOOD FIND 
end; 


signal ( LinS_libfind, 4, .modrfa Crfa$i_vbn] REPORT ERROR IF FALL THROUGH 
--modrfa (rfasw_ tfset ink$gl_curomd FondSb naming) 
» Unk$gl_curfilCfdbs zfilenane], Lin$_format, 0 


g-Stetus..inkSal res rab$l_stv 


return: ~ ! AND ALL SET 
end; 


-EXTRN SYSSFIND 


000¢ 00000 .ENTRY LNKSPOINTOBJ, Saye R2,R3 : 0699 ‘ 

53 0000" CF 9E 900¢ MOVAB LNKSGL_CURFIL, R : : 

3 FFOC cE 9€ 0000 MOVAB = ‘ : : 

1 63 00 0000C MOVL § LNKSGL_CURFIL, R1 + 0718 ; 

52 04 AC 00 0000F MOVL  MODRFA; + 0730 3 

03 OA Al 01 0013 BBS #1, 10(R1), 18 + 0721 ; 
0085 31 0001 BRW : : 

01 000000006 9 1 0018 1$ CMPB NKSGB_PASS, #1 t 0726 : 

12 000 BNEQ $ 3 

F8 AD 80 BF 9B 00024 MOVZBW #128, HDRDESC + 0728 ; 

FC AD 04 AE 9E 00029 MOVAB HEADER, HDRDESC+4 : 0729 : 

F8 AD 9F 0002E PUSHAB HDRDESC : 0730 r 

52 DD 00031 PUSHL R : F 

08 AE 6 Al 3C 90035 MOVZWL 36(R1), 8(SP) : ; 

8 AE F 00038 PUSHAB ; F 

000000006 00 Q FB 000 CALLS #3, LBRSSET_MODULE : : 
4D g E9 0004 BLBC STATUS, 4$ : : 

51 63 DO 0004 MOVL §_LNKS$GLCURFIL, R1 : 0737 F 

05 14 AE 9 00048 BLBC HEADERT 16 2$ : 0736 ; 

OA Al 08 88 0004¢ BIs62 #8, 10(R1S : 0737 : 

OA Al 08 8A i 2$: BICB2 #8, 10(R1) : 0738 : 

4 5 RET ; 0739 3 

52 DD 3$: PUSHL R2 : 0743 ; 

04 AE 34 Al 3¢ MOVZWL 36(R1), 4(SP) : : 

4 AE OF PUSHAB : : 

000000006 90 9 F CALLS #2, LBRSFIND ; : 
: E BLBS STATUS, > 0744 ; 

5 FC COA MOVL _ LNKSGL_CUROMD, R1 : 0746 : 

FO AD : Al MOVZBW 4O(RI); MODNAMDE SC : : 

Fe OAD Al 9€ MOVAB 41(R1). MODNAMDESC+4 > 0747 : 

52 po SHL R2 : 0748 ; 

FO AD OOF PUSHAB MODNAMDESC ; ; 

51 63 00 MOVL NK$ \ CUREIL, R1 : ; 

08 AE 4 Al 3¢ MOVZWL 36(R1)> B(SP) : ; 

8 A F PUSHAB P : 3 

000000006 00 03 FB CALLS #3, LBRSLOOKUP_KEY : : 


10 
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a 


5 E f BLBS STATUS, 7$ 3 0749 
co A D 4$: MOVL § STATUS, LNKSAL_RAB+8 + 0751 
C4 a3 000000006 p MOVL "pepe LNKSAL_RAB+12 : 13 
06 A 0 Hi 5$ MOVB oft LNKSAL RAB+30 ; 786 
(8 OA 62 0 Ab MOVL (RO), LNKSAL RAB#16 : 075 
CC A 06 =A : Aa MOVW (RES LNKSAC_RAB+20 : 0758 
B8 AS OF PUSHAB LNKSAL_R : 0759 
000000006 00 01 FB 0008 CALLS #1, SYSSFI ; 
D6 «AS «94 «(0008 CLR LNKSAL_RAB+30 : 0760 
28 50 €8 OOOBA BLBS § STATUS; : 0761 
C4 «6A3 «OD 08 58 PUSHL LNKSAL_RAB+12 : 0767 
50 oD 000C¢ PUSHL STATUS ; 
7E 04 000C CLRL. = =( SP) : 0766 
000000006 8F DD 90¢4 PUSH #LINS FORMAT : 
7E 3 14 C1 QOOCA ADDL #20, CNKSGL_CURFIL, -(SP) ; 
7E FC AB 28 4 00¢ ADDL3 #40. LNK$GL~CUROMD. -(SP) + 0765 
7é 04 Ag C 990 MOVZWL 4(R2), =(SPY : 0766 
62 DD 000d PUSHL (R2) ; 
04 DD 00009 PUSHL #4 : 
000000006 8F DD 000DB PUSHL #LINS_LIBFIND ; 
000000006 00 OA FB OO0E1 CALLS #10, CIBSSIGNAL 3 
04 O00E8 7S: + 0770 


; Routine Size: 233 bytes, Routine Base: S$CODE$ + 0510 


a1 
LNK_OBJFIL 16-Sep-1984 210: AX-11 Bliss-32 V4.0 Pa A LN 
y0c2008 12: sen 1984 99:18:83 EMTNKeR SRESLNCONSE GL 69251 a §) vo 
; { r Begin: routine ink$closefile ( fdbclose ) : novalue = : 
; 7 ; 
3 5 77 THIS ROUTINE WILL LOCATE A FILE FOR CLOSING <= IF THE FDB : 
3 096 77 ! IS EXPLICITLY SPECIFIED BY BEING PASSED, THEN THAT FILE IS ; 
: 66 16 i CLOSED, OTHERWISE THE NEXT OPEN FILE LOCATED FROM THE : 
; 098 a : OPENCLUS AND OPENFDB POINTERS IS CLOSED. : 
Bo RE : 
3 676 ? } routine closeit (fdbclose) : novalue = ‘ 
oe BR ee : 
; of? f ¢ ; ROUTINE TO CLOSE A FILE GIVEN ITS FDB : 
; oi$ 7 am fdbclose : ref block C byte] : 
3 ore 7 bind aux fnb = soec tons Cfdb$t <auxtnb) : block Cnam$c_bin,byte); : 
; 6 788 local input_fab : block Cfab$c_bli, byte : 
3; 680 789 status ; 
: 681 790 
3 ose 791 if .fdbclose Cfdb$Sw_ifi] neq 0 ! IF FILE IS OPEN 
; 68 792 4 then begin 
; 686 793 4 if not {dc lose Cfdb$v_libr) ! AND FILE IS NOT A LIBRARY 
; «4685 794 then be 
3 O56 795 gegin init itepetn ut_ fab) 
; 68 7 input_fab C fi] =. #dbclose Cfdb$w_ifil; 
3 os 79 aux fnb Bog ™ ; 
: 9 798 auxfnd Cnam$b_ess 
; 690 799 status = $close (fab= input. fab); 
: 691 800 end 
3; 69 0801 else begin ! FILE IS A LIBRARY 
; 69 bans status = lbr$close (Zref (. ob nt tyne dl cdetu, ifiJ)); 
: 694 080 input_fab Cfab$l_stv] = .lbr réglr 
3 695 0804 if .s€atus then [nk$gl_open_lbr~= ee id open_lbr - 1; 
; 4] 805 4 end; 
3; +69 Bape 4 
; 698 O38 4 if not .status 
; 44 rtd ? then signal (Lin$_closein,1, fdbclose Cfdb$qy_filename], .status, .input_fab [fab$l_stv]); 
: 701 0810 4 fdbclose Cfdb$w_ifi] = 0; ! FLAG FILE CLOSED 
: 8 0 13 ; wen 
> 704 $818 end: ! OF CLOSEIT 
-EXTRN SYSSCLOSE 
OFC 08 CLOSEIT: .WORD Save Re R2, RB, R4,R5,R6,R7,R8 ; 0781 
AE 9 0 MOVAB 3 
é 4 ac MOVL Rat Ose : 0787 
6 AB SE A MOVAB (R6), R : 
58 4 6 MOVZWL athe). Rb 3; 0791 
D 0A Ab o} Base nn 19<R6) 1$ : 079 
0050 = 8F 8 bE . 00 5 9019 MOVCS #0, (SP), #0, #80, SRMS_PTR : 079 


W 10 | 
| 


LNK_OBJFIL on3e -1 AX-11 Bliss-32 V4.0-7 Page 26 
rivesitd 1ergeen19Be 93:28:83 | eR SAE Ae oNSE oT 88251 ve 3 
% A 5003 fF MOVW a 3, SRMS_PTR $ 
A oA MOVB RAS _ PIR ¢¢ : 
33 A MOVB ans Presi : 
A MOVW 3; 07 
2 A CLRB i, : 079 
. OM oe SHEAR INPUT FAB : B8 
000000006 00 Of Fe CALLS #1, SYSSELOSE : 
e 1 BRB 2s : 0793 
6E DO 1$: MOVL 8, (SP) + 0802 
000000006 00 5 PR caret CLOSE ; 
~~ AE 000000006 9 08 MOVL § LBRSGL_RMSSTV, INPUT_FAB+12 : 9803 
0 E BLBC STATUS; 3$ + 0804 
0000' gf 07 DECL LNKSGL _OPEN.LBR 3 
17 0 €8 $: BLBS STA 4 > 0807 
10 AE DD $: PUSHL INPUT _FAB+12 : 0808 
5 bp PUSHL ra ug F 
14 A6 fF PUSHAB 0(R6) 3 
1 DD SHL #1 ; 
000000006 8F DD PUSHL #LINS CLOSEIN ; 
000000006 00 5 FB CALLS #5, LIBSSIGNAL F 
24 Ab B4 0007B 4$: CLRW = 36(R6) > 0810 
04 O007E 5$: RET > 0813 


; Routine Size: 127 bytes, Routine Base: SCODES + OS5F9 


P05 


Sees 


' 
i 
Main body of LNKSCLOSEFILE 
i 


map 
fdbclose : ref block C,bytel; 
builtin 
nul lparameter; 
label 
cluster; 


ab th 8 HS A 4 8 8 


WN —O OONOUNEWNR “OC OOnNOusun—o 


if not nullparameter ( 


(1) IF PARTICULAR FILE SPECIFIED 
then return (closeit (.fdbclose)) ; RN 


THEN CLOSE Ii AND RETU 


IF OPEN cuyerer LIST UNINITIALIZED, 
THEN Pie THAT NOW 

FIRST CLUSTER 

FIRST FB IN FIRST CLUSTER 


if a eql 0 

then 
solnelus = .lnk$gl_clulst (0); 
openfdb = openc lus CcluSl_ tstfdb); 
end; 

start_fdb = 0; 


cluster: 
begin 


MEAN CO OONOUE WN“ OOONOUSE 


INITIALIZE STARTING FDB 


while true do 
be 


NNN 


m—O Oe 


n 
& while -openfdb neq 0 do WHILE NOT AT END OF FDB LIST FOR THIS CLUS 


o 
& 


a $$$ —$ —__—_____ 
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1B-Sep-1964 00:10:55 VARI BLisg-32 y4.0-742, | Page (27 
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v04- Sep- -LINKER.SRCJLNKOBJFIL. 


i Zz 0843 4 if .openfdb Cfdb$w_ifi] eql 0 ! IF FILE IS ALREADY CLOSED ; 
:; 735 44 2 then begin : ‘ 
; f 4 o2 : ib +ptart.tdb eql .openfdb ! BACK TO WHERE WE STARTED, NOTHING FOUND : 
; en be ; 
: 738 O87 § if -openclus eql Lnk$gl_defclu ! JF ALREADY AT THE DEFAULT CLUSTER ; 
; iy 48 then begin | *#* this should be an error report *** ‘ 
; 740 oh ? openclus = 0; ! FORCE A RESTART FROM THE TOP ; 
> 741 50 7 return; ! GO AWAY FOR NOW ‘ 
; reg 851 7 en ; 
; 74 B26 7 else begin : 
; 744 855 7 openclus = Ink$gl_defclu; ! ELSE, USE DEFAULT CLUSTER ° 
3 SK See 4 opentdb = .openclus Cclu$lt_fstfdbJ; ! ALWAYS RESET FDB TO FIRST IN NEW CLUSTER : 
; en ; 
3 reo S29 6 en : 
; 748 bee 6 else begin : 
: 749 858 6 if .start_fdb eql 0 ! IF STARTING POINT HASN'T BEEN SET YET, ° 
: reo + Fa ? then start _fdb = .openfdb; ! THEN DO IT NOW ‘ 
; £36 0861 6 openfdb = .openfdb Cfdb$l_nxtfdbJ; ! LOOK AT THE NEXT FDB FOR THIS CLUSTER ; 
; Dp Bag 3 end ‘ 
; 754 086 end : 
; oe? Bare ? else leave cluster; ! WE HAVE FOUND AN OPEN FILE <= LEAVE ; 
3 37 0866 4 if .openclus Cclu$l_nxtclu] eql 0 ! IF AT THE END OF THE CLUSTER LIST : 
; 0867 4 then openclus = .ink$gi_clulst [0] ! START AT BEGINNING OF CLUSTER LIST AGAIN ‘ 
; o28 +943 ° else openclus = .openclis Cclu$l_nxtclul; ! ELSE MOVE ON TO NEXT CLUSTER IN LIST 

3 ee) gery 4 spent = ,openclus Cclu$l_fstfdb]; ! ALWAYS RESET FDB TO FIRST IN NEW CLUSTER 

3 end; 

; res bere end; ! OF CLUSTER 

> 764 087 

3; 765 0874 closeit (.openfdb); ! GOT A FILE, NOW CLOSE IT 

; 766 0875 openfdb = .openfdb Cfdb$l_nxtfdbj; 

: 767 0876 

; 768 0877 return; 

; 769 0878 1 end; ! OF LNKSCLOSEFILE 


001¢ 000 ENTRY LNKSCLOSEFILE, Save R2,R3,R4 : 0771 
00 9€ 0000 MOVAB LNKSGL_DEFCLU, R4 ; 
00 9€ MOVAB LNKSGL~CLULST, R3 : 
CF 3 MOVAB OPENCLOS, R2 3 
6¢ 1 TSTB  —s- CAP?) + 0827 
E 1 BEQL =sés«sd1$ ; 
AC 19 TSTL 4(AP) ; 
09 13 000IC BEQL : 
AC 0D 3 PUSHL FDBCLOSE : 0828 
01 FB CALLS #i, CLOSEIT : 
62 C $ 1$ TSTL PENCLUS > 0830 
9 BNEQ ; 
63 D B MOVL §LNKSGL_CLULST, OPENCLUS ; 0832 
62 D ; ‘ MOVL PENCLOS ; 08 
AO D MOVL (RO), OPENFDB : 


8 
4 


24 
08 


08 


00 


08 
04 
04 


SCODES + 0678 
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sor 0:18:93 HMaddSPLESCREadte O07 


START _FDB 
PENFDB, R1 


(R1) 
TART FOB, Rt 


LNKSGL pereyu. RO 
OPENCLOS, R 


OPENCLUS 
LIXSELDEFCLU, OPENCLUS 
START_FDB 


START_FDB 
in, OPENFDB 


@OPENCLUS, RO 
LNK$GL_CLULST, OPENCLUS 
RO, OPENCLUS 

PENCLUS, RO 

(RO), OPENF DB 


OPENF 
#1, CLOSEIT 
@OPENFDB, OPENFDB 


it 


: 
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-PSECT SOWNS,NOEXE,2 


00 59 52 41 52 42 49 4C 246 48 4E 4C 001B4 LNKLIBNAM: 
-ASCII \LNKSLIBRARY\<0> 


; 46 79 ! routine tran_next_lib = : 
; rg 1! THIS ROUTINE RETURNS THE VALUE TRUE IF THERE IS ANOTHER DEFAULT LIBRARY ° 
: 774 ¢ 1! TO PROCESS AND FALSE _IF NOT. IF THERE IS ANOTHER LIBRARY, THE FILENAME : 
; of? ? : } IS SET UP IN THE VECTOR RESULTSTRING WITH ITS DESCRIPTOR in’ LIBNAMDESCR. ‘ 
3 +78 5 begin : 
; ore § bind : 
: a4 ; maxliblng = %charcount ('LNKSLIBRARY_999"); ! MAX LIBRARY LOGICAL NAME LENGTH : 
3 own : 
; rR 8 5 inklibnam : vector C¥charcount (*LNKSLIBRARY' )+#1, byte] ! THE INITIAL DEFAULT LIBRARY NAME ; 
; ree 30 initial (Zascii'LNKSLIBRARY'); : 
ch 2 9 local ‘ 
; 784 8 3 trancode, : 
; 785 9 deflibnam : vector Fggxliblng, bytel, ! TO RECEIVE THE corner ies LOGICAL NAME ; 
3 ree S30 namptr : vector ; ! DESCRIPTOR OF DEFLIBN ‘ 
; 788 4 if teste” ulibmask (2 - .deflibacmode] neq 0 ! IF THIS LOGICAL NAME TABLE ENABLED : 
; 789 89 then be : 
; 790 0898 nanptr {0} = maxliblng; ! INIT THE DESCRIPTOR : 
: 791 0899 namptr(1J) = deflibnam; : 
; 79 0900 if .userlibno eql 0 ! IF THIS IS FIRST IN THIS TABLE : 
; 4 4 then begin ; 
: 796 it & nesotr toy = ore (*LNKSLIBRARY') ' SET THE COPY LENGTH : 
; r3? 344 ? . aeneve § -namptr (OJ, Iinklibnam [0], det Libnan); ! COPY THE NAME : 
; 797 0905 else ‘t not sys$fao(libnamefao,namptr,namptr,.userlibno) ! OTHERWISE MUST FAO IT ; 
; 798 3308 then return false; ! AND GIVE UP IF IT FAILS ‘ 
; 799 090 ! . 
; is B208 NOW TRANSLATE THE LOGICAL NAME ; 
; B08 0910 Libnamdescr CO] = nam$c_maxrss; ! RESET STRING DESCRIPTOR ; 
3 HH P a4 trancode = $trnlog (Lognam = nam ! TRANSLATE THE NAME ‘ 
: 804 P aig -dsbmsk =.def ibdsbnsk C.deflibacmode] : 
+ 805 P 34 otsllen = Libnamdesc : 
3 o08 P gore rslbuf = Libnandescr : 
; 808 0916 4 if (.trancode and (.trancode’ neq ss$_notran)) ! IF GOT A GOOD NAME RETURN WITH IT : 
; 809 a4 4 then return true; : 
; 810 918 end; . 
3; 81) 34h ‘ : 
3 \¢ > Y : FAILED. MOVE ON TO NEXT GROUP : 
: 814 9 g if (deflibacmode = .deflibacmode+1) gtr 2 ' BUT IF WE ARE ALL DONE ‘ 
3 12 M Z then return false; ! THEN RETURN NO MORE : 
: i$ 925 userlibno = 0; ' OTHERWISE RESET LIBRARY NUMBER : 
; 318 ba5$ reas tran_next_lib (); ! AND RECURSE TO RETURN NEXT LIBRARY : 
Py end; . 


voozo00 1$-bep-1944 HLH Tn CBT Ta TET a TCR ae 


MAXLIBLNG= 
«EXT 


15 
SYSSTRNLOG 
.PSECT S$CODES,NOWRT,2 
007¢ 00000 TRAN_NEXT 118: 


; Routine Size: 150 bytes, Routine Base: S$CODE$ + 0707 


.@0 Save R2,R3,R4, ai R6 ; 0879 : 

6 0000" ¢F H 3 MOV DEFLIBACHO ACMODE , ; : 

8 § SUBL #24, SP : : 

A A MOV gL D “B ACHO DE, RO + 0896 ; 

50 6 C3 0000D SuBL RO, ie. ; ; 
51 000000006 00 i if EXT2V R ‘wi. RO sce _ULIBMASK, R1 : : 
6E 5; p iC VL #15, NAM + 0898 : 

04 Ar 08 oA O1F MOVAB DEFL IGNAM R AMPTReS + 0899 : 

5 FA Ab DO 00024 MOVL same RO + 0900 ; 

€ 12 00028 BNEQ 3 : : 

6E B O2A MOVL #11 AMPTR 3; 090 ° 

08 AE O10E C6 6 02D MOVC3 NAMPTRS LNKLIBNAM, DEFLIBNAM + 090 ; 
15 11 000 BRB 2$ + 0900 ; 

50 DD 00036 1$: PUSHL RO + 0905 ; 

04 AE 9F 000 PUSHAB NAMPTR : ; 

08 A 9F 00038 PUSHAB NAMPTR é . 

E6 A 9F OO03E PUSHAB LIBNAMEFAO é ‘ 

000000006 00 4 Fe 0041 CALLS #4, SYSSFAO : : 
48 0 : 0048 BLBC 8=oaR : : 

0106 £6 FF BF 9A 0004B 2S: MOVZBL # gs” LIBNAMDESCR > 0910 ; 

0 66 9A 00051 MOVZBL DEFLIBA : 0915 : 

7E 02 A640 9A 00054 MOVZBL DEFLIBD cane getROD, -(SP) : ; 

7E 7C 00059 CLRQ | =(SP) : F 

0106 C6 9F 00058 PUSHAB LIBNAMD ; : 

0106 C6 9F 0005F PUSHAB LIBNAMDESCR F : 

14 AE 9F 00063 PUSHAB NAMPTR : : 

000000006 00 é FB 0066 CALLS #6, SYSSTRNLOG ; : 
0D E 9060 BLBC CODE, : 0916 F 

00000629 8F 0 D1 000 : CMPL §-« TRANCODE. #1577 : : 
04 13 007 BEQL 6 3$ ; F 

50 1 0 9079 MOVL #1, RO : 0917 ; 

04 007¢ RET : F 

50 6 9A 00070 3$: MOVZBL DEFLIBACMODE, RO : 0922 ; 

0 06 08 INCL : ; 

66 0 MOVE = RO, DEFLIBACMODE : 3 

02 0 pi CMPL = RO. #f : : 

09 14 BGTR : ; 

FA AG D4 A CLRL USERL 1BNO : 0925 ; 

FF6OE CF 0 FB a098 CALLS #0, TRAN_NEXT_LIB : 0926 : 

50 D4 038 4$: CLRL = RO : 0927 ; 

4 0009 RET F : 


—d 


11 


then begin 
status = lbrSopen (index, ink$gl_curfil Cfdb$q_usrnamdsc 
0, ink$gl_curfil Cfdb$w_defnamlen 


fdbfilename fdsc$u_ length) = .mameblock Cnam$b_rsl] ; 


SET NAME DESCRIPTOR 


F 
LK _OBJF IL 16-Sep-1984 00:10: AX=11 Bliss=32 V4.0-74 Page 31 L 
y0e=000 13-808-138¢ 90:18:33 LINKER. SRC JLNKOBJFIL.B52;1 ’ (B) va 
: 1 , } global routine LnkSopenlib (nameblock, an_open_fdb) = ; 
3 § , ! THIS ROUTINE OPENS A LIBRARY FILE USING THE LIBRARY ACCESS PROCEDURES. ‘ 
; 825 9 ¢ begin ; 
3 § 9 map : 
3 934 nameblock : ref block C,byte] ; ; 
: & 935 Local ; 
3 9 9 $ status, 
; 0 9 Libraryfunc initial {hbrSc.reed). 
; 1 9 $ fdb_to fiece : initial (0) 
3 ; 9 close Ti : initial (false), 
; 940 nit_Tib : og | (false) 
3 94) filnamdesc block Cdsc$c_s_bln,byted, 
3 5 oh ndex ; 
3 94 builtin 
5 944 nullparameter ; 
: 8 945 bind 
; , ee fdbfilename = (nk$gl_curfil Cfdb$q_filename] : block C,byte] ; 
; 841 948 
; ri} 0949 if .nameblock Cnam$w f{d_nun) neq 0 ! IF FILE HAS BEEN OPENED 
5 $320 and .lnk$gl_curfil Cfdb$Sw_ifi] neq 0 ! AND IS OPENED NOW 
; : Baas then return true ; ! THEN WE'RE DONE 
3 578 0958 if not nullparameter(2) then fdb_to_close = .an_open_fdb ; ! DETERMINE FDB TO BE CLOSED NEXT 
; 848 $988 $getipi (itmlst=Lnk$gt_jpilst) ; ! WE MAY NEED TO CLOSE ONE SO THAT 
3 $08 0957 if .ink$gl_filesleft leq 3 then close_lib = true ; ! WE CAN OPEN ANOTHER 
: 851 958 do begin 
; S26 0959 if .close_lib 
3 8 0960 4 then pean ! THEN CLOSE A FILE AND TRY AGAIN 
3 HE 961 4 Lnk$closefiie (.fdb_to_close) ; 
; 855 206 4 fdb_to_close = 0 ; 
; 528 963 4&4 en 
; 85 964 else close_lib = true ; ' CLOSE A FILE NEXT TIME THRU THE LOOP 
3 3 39 $4 Status = LBrSini_control (index, libraryfunc,0,.nameblock) ; ! INITIALIZE INDEX 
3 en 
: : $37 until .status neq Lbr$_toomnylib ; 
F § if not .status then return .status ; 
; 4 if .nameblock Cnam$w_fid_num] eql 0 ! IF FILE HAS NEVER BEEN OPENED... 
; 7% 
; fdbtiLenane dsc$a_pointer) = .nameblock [nam$l-rsal : 
: en 
3 else status = lbr$Sopen (index) ; ! IN PASS 2 CAN OPEN BY NAM BLOCK 
; if .status 
: then begin | 
3 ink$gl_open_lbr = .lnk$gl_open_lbr + 1 ; 
: ink$gl-curfTl Cfdb$w_ifil = ,index ; ' IF SUCCESSFUL OPEN, SET INDEX FOR CLOSE | 
; lbr$gl_control Clor$v_locate] = true ; ! SET LOCATE MODE 
} 
| 
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E 
OTHERWISE IF NOT N OBJECT LIBRARY 
THEN SIGNAL ERROR AND GIVE UP 
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Lormsstv Of 
then at stop "tant Oreceey tte. fdbfilename) ; 


| if .ink$al_rab Crab$w_usz]) eql 0 

4 then begin” 

4 ink$al_rab Crab$w_usz] = pbis nanos : 

\ UnkSalToblk ¢ -lnkSal_rab Crab$i_uszJ, ink$al_rab Crab$l_ubfJ) ; 


MEW 


coun -Status !' OF LNKSOPENLIB 
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O1FC 000 .ENTRY LNKSOPENLIB, Save R2,R3,R4,R5,R6,R7,RB : 0928 
58 000090006 00 9 0000 MOVAB LBRSOPEN, R : 
0000" CF H 90 MOV LNK$GL_CURFIL, R7 : 
C C2 0000E SUBL2 #12, SP ; 
1 bp 0011 PUSHL #1 + 0932 
C 0013 CLRQ. CLOSE_LIB F 
50 D4 0001 CLRL IT Cl ; 
50 67 00 00017 VL LNKSGL_CURFIL, RO + 0946 
55 14 AO 9E OOOIA MOVAB 20(RO) : 
52 04 AC DO 0001 MOVL NAMEBLOCK, R2 + 0949 
24 A2 B5 000 TSTW  36(R2) : 
09 13 000 BEQL~=ésés18 : 
24 AO 8 00 TSTW  36(RO) + 0950 
4 00 A BEQL =s«1$ : 
50 1 pd 0002C MOVL #1, RO : 0951 
04 O02F RET ; 
02 6C 91 00030 18 CMPB ss CAP), «#2 : 0953 
09 1F 000 BLSSU _2$ : 
08 Ac 05 0 TL (AP) ; 
04 13 000 BEQL 2$ : 
54 08 Ac 00 MOVL § AN_OPEN_FDB, FDB_TO_CLOSE : 
7E 7C 0 CLRQ 0s = (SP) : 0955 
43 4 CLRL = = (SP) : 
000000006 Q F PUSHAB LNKS$GT_JPILST : 
— 7C CLRQ = =(SP) : 
43 D4 CLRL = = (SP) ; 
000000006 09 FB CALLS #7, SYSSGETJPI : 
93 000000006 9 pi CPL NKSGL_FILESLEFT, #3 : 0956 
53 1». MOVL 1, CLOSE_LIB ; 
0B 3 08 BLBC CLOSE LIB; 4$ > 0959 
4 DD PUSHL FDB_TO CLOSE ; 0961 
FE72—sCF 1 FB CALLS #1, LNRSCLOSEFILE : 
4 D tL FDB_TO_CLOSE : 962 
3 11 BRB 5$ ; 999 
53 1 D0 VL #1, CLOSE_LIB : 
2 oD PUSHL R2 : 308 


H 11 
LINK _OBJFIL 16-Sep-1984 00:10: AX-11 Bliss-32 V4.0-7%4 Page 33 
yu=000 12-808-1 38 90:19:33 LINKER. SROILNKOBJFIL.B 231 . a 
7E 04 0007 CLRL = = (SP) ; 
08 AE 9F 0007 PUSHAB LIBRARYFUNC : 
AE 9F 0007 PUSHAB INDEX : 
000000006 00 4 Ff 7A CALLS #4, LBRSINI_CONTROL : 
6 0 D 1 MOVL TATUS 3 
000000006 &F : cMPL TATUS, #LBRS$_TOOMNYLIB + 0967 
2c : E BLBC SIATys. 7$ : 0969 
24 «OA : TSTW (R2) : 0970 
IE 9 BNEQ 6 : 
7E 67 14 ci 9 ADDL #20, LNKSGL_CURFIL, -(SP) + 0973 
7E 67 oC 1 ADDL3. #12, LNKSGL_CURFIL, -(SP) : 0972 
10 AE F oF SHAB NDEX 3 
68 94 FB A CALLS #4, LBRSOPEN + 0973 
: A RO, STATU ; 
4, 3 é«A A MOVZ7BW (82), (R5) : 0975 
04 Ad 4 Ae 0d AC 4(R2), 4(R5) : 0976 
09 1 9B! BRB 7$ + 0970 
04 AF 9F 00083 6$: PUSHAB INDEX : 0978 
68 F 086 CALLS #1, LBRSOPEN ; 
$ 0 »D B MOVL RO, STATU ; 
5 56 €9 000BC 7S: BLBC _—« STATUS, + 0980 
AC OA 06 BF INCL  LNKS$GL_OPEN_LBR : 098 
51 67 D ce VL LNKSGL_CURFIL, R1 3; 098 
26 «COA 04 AE 8 ¢ MOVW —sINDEX, : 
50 000000006 p OOCA OVL §LBRS$GL_CONTROL, RO + 0984 
06 AO 1 0001 BISB2 #1, 6(RO) ; 
50 000000006 6 DO 00005 MOVL LBRSGL_RMSSTV, RO : 0986 
05 D1 000DC CMPL = RO, # : 
06 iF OODF BNEQ &8$ : 
0B Al 01 8 90E BISB2 #1, 11(R1) : 0987 
16 11 ES BRB ; 
01 5 bt OOE7 8$: CMPL ~=séRO, #1 : 0988 
11 13 OOOEA BEQL 6-9 : 
55 DD OO0EC PUSHL R5 : 0989 
1 00 OoEF PUSHL #1 ; 
000900006 BF DD O00F PUSHL HL INS NOTOBJLIB : 
000000006 00 3 FB OO0F6 CALLS #3, LIBSSTOP ; 
D8 a7 8 OOFD 9$: ist LNKSAL_RAB+32 : 0991 
d8 A7 0800 8F 8 189 MOVW #2048, LNKSAL_RAB+32 3; 0993 
DC A? OF 001 PUSHAB LNKSAL_RAB+ : 0994 
7 d8 A? 3C¢ \e MOVZWL LNKSAL_ RAB+32, -(SP) é 
000000006 Q Qe FB 10F CALLS #2 LNRSALLOBLK ; 
6 D O16 10$ MOVL STATUS, R : 0998 
04 0011 RET ; 0 


3; Routine Size: 282 bytes, Routine Base: S$CODE$ + 079D 


; 893 1000 1 
3; 6894 1001 0 end eludom 


"1 
yoczo00 1e-8ep= 1986 §$3:cb;32 Heiner SAeScaeobsi ot es2:1 Sovak 


-EXTRN LIBSSIGNAL, LIBSSTOP 


: PSECT SUMMARY 

; Name Bytes Attributes 

$ SGLOBALS $8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SOWNS 448 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
$ LITS 90 NOVEC,NOWRT, RD fam 5 -NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2251 NOVEC,NOWRT, RD EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 « MB 0 NOVEC;NOWRT,NORD NOEXE, NOSHR, LCL, « CON,NOPIC,ALIGN(O) 
: Library Statistics 

3 SRS TyERGlG eoccense Pages Processing 

: File Total Loaded Percent Mapped Time 

> _$255$DUA28:(SYSLIBISTARLET.L32;1 977 107 1 581 0:01.0 

5 ee CUA tcInKeR obo IDATBAS L $2:1 gf H é 58 00:00:4 

3 COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKOBJF IL/OBJ=OBJ$:LNKOBJFIL MSRC$:LNKOBJF IL/UPDATE=(ENHS$:LNKOBJF IL) 
pizes 2231 coge,* 616 data bytes 


; Run Time: 241, 
3 Flapsed Time: 1:32.2 
3 Lines/CPU Min: 144 

3 peek A 2340 

; YU Used: 339 pages 
; Compilation Complete 
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